home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
d
/
digitaluniversev1.01a.dms
/
digitaluniversev1.01a.adf
/
DigitalUniverse-Install
< prev
next >
Wrap
Text File
|
1995-09-04
|
10KB
|
378 lines
; Digital Universe installation script
(set @default-dest "SYS:")
(transcript "Installing The Digital Universe...")
(complete 0)
(set whattoinstall
(askoptions
(prompt "Which of the following do you wish to install? "
"In order to use \"The Digital Universe\", you must install the software and "
"data files. The pictures and audio samples are optional, but should be "
"included if you have enough room on your hard drive.")
(help @askoptions-help)
(choices "Software and data files (11 Megs)" "Pictures and audio samples (6 Megs)")
)
)
; Set flags according to what we want to do...
(if (BITAND whattoinstall 1) (set software 1) (set software 0))
(if (BITAND whattoinstall 2) (set pictures 1) (set pictures 0))
(if (AND (= software 0) (= pictures 0)) (abort "You didn't want to install anything"))
(copyfiles (source "DU_1:unlha") (dest "RAM:"))
(if software (
; Find out where to install things
(set @default-dest
(askdir
(prompt "Where do you wish to install \"The Digital Universe\"? "
"A new directory named \"DigitalUniverse\" will be created automatically "
"in the location you choose.")
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest (tackon @default-dest "DigitalUniverse"))
(makedir @default-dest
(help @makedir-help)
(infos)
)
(makeassign "DU" @default-dest)
(set @execute-dir @default-dest)
; Add assign to user-startup
(startup "DigitalUniverse"
(prompt "Adding DU: assign to user-startup")
(help @startup-help)
(command "assign DU: \"" @default-dest "\"")
)
; What CPU is being used?
(set programversion 0)
(if (= (run "c:cpu check 68020") 0) (
(set programversion 1)
(if (= (run "c:cpu check 68881") 0) (set programversion 2))
)
)
(if (= (run "c:cpu check 68040") 0) (set programversion 2))
(set programversion
(askchoice
(prompt "Which version of the main program do you wish to install? "
"This installation program has done its best to determine "
"the version you need, but if it made a mistake, click on the "
"corrected button below before pressing \"Proceed\"")
(help "If your system has a math chip or is running on a 68040, "
"the \"68020+/68881+\" version of the software will be the quickest. "
"If you do not have a math chip, but have a 68020, 68030, or 680EC40, "
"select \"68020+\". If you are running an Amiga with the "
"standard 68000 CPU, choose \"68000\"\n\n"
"\"The Digital Universe\" will crash if you use a version not "
"intended for your particular machine! In most cases, this "
"installation script will determine the appropriate version "
"of the software for you.")
(choices "68000" "68020+" "68020+/68881+")
(default programversion)
)
)
; Starting the real installation
(if (> programversion 0)
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 2\"")
(help @askdisk-help)
(dest "DU_2")
))
(working "Extracting main program")
(if (= programversion 0) (run "ram:unlha xf DU_1:DigitalUniverse_000.lha"))
(if (= programversion 1) (run "ram:unlha xf DU_2:DigitalUniverse_020.lha"))
(if (= programversion 2) (run "ram:unlha xf DU_2:DigitalUniverse_020_881.lha"))
(complete 5)
; In case we're re-installing, makelink will fail if DigitalUniverseNoIntro already exists
(delete "DU:DigitalUniverseNoIntro")
(run "c:MakeLink from DigitalUniverseNoIntro to DigitalUniverse")
(complete 6)
(if (> programversion 0)
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 1\"")
(help @askdisk-help)
(dest "DU_1")
))
(working "Extracting miscellaneous utilities and configuration files")
(run "ram:unlha xf DU_1:utilities.lha")
(complete 7)
(copylib
(prompt "Copying iff.library")
(help @copylib-help)
(source "DU:libs/iff.library")
(dest "libs:")
)
(delete "DU:libs/iff.library")
(complete 8)
(copyfiles
(prompt "Copying the custom font")
(help @copyfiles-help)
(source "DU:fonts")
(dest "fonts:")
(all)
)
(delete "DU:fonts/DU/9")
(delete "DU:fonts/DU")
(delete "DU:fonts/DU.font")
(delete "DU:fonts")
(complete 9)
(copyfiles (source "DU_1:du.keyfile") (dest "DU:"))
(complete 10)
))
; Store a copy of the various destination directories.
(set @default-dest (expandpath "DU:"))
(set destination @default-dest)
(set dudata (tackon destination "data"))
(set pics "DU:data/pics")
(makedir dudata (help @makedir-help))
(makedir pics (help @makedir-help))
(if pictures (
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 2\"")
(help @askdisk-help)
(dest "DU_2")
)
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 1/12")
(run "ram:unlha xf DU_2:pics1.lha")
(complete 13)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 3\"")
(help @askdisk-help)
(dest "DU_3")
)
(if software (
(set @execute-dir destination)
(working "Extracing hypertext encyclopedia")
(run "ram:unlha xf DU_3:hypertext.lha")
(complete 16)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 2/12")
(run "ram:unlha xf DU_3:pics2.lha")
(complete 19)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 4\"")
(help @askdisk-help)
(dest "DU_4")
)
(if software (
(set @execute-dir dudata)
(working "Extracting planetary maps, orbits, and deep sky object data")
(run "ram:unlha xf DU_4:map_vsop.lha")
(complete 22)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 3/12")
(run "ram:unlha xf DU_4:pics3.lha")
(complete 25)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 5\"")
(help @askdisk-help)
(dest "DU_5")
)
(if software (
(set @execute-dir dudata)
(working "Extracting Yale Bright Star Catalogue")
(run "ram:unlha xf DU_5:ybs.lha")
(complete 28)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 4/12")
(run "ram:unlha xf DU_5:pics4.lha")
(complete 31)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 6\"")
(help @askdisk-help)
(dest "DU_6")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 1/6")
(run "ram:unlha xf DU_6:sao1.lha")
(complete 34)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 5/12")
(run "ram:unlha xf DU_6:pics5.lha")
(complete 37)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 7\"")
(help @askdisk-help)
(dest "DU_7")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 2/6")
(run "ram:unlha xf DU_7:sao2.lha")
(complete 40)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 6/12")
(run "ram:unlha xf DU_7:pics6.lha")
(complete 44)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 8\"")
(help @askdisk-help)
(dest "DU_8")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 3/6")
(run "ram:unlha xf DU_8:sao3.lha")
(complete 47)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 7/12")
(run "ram:unlha xf DU_8:pics7.lha")
(complete 50)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 9\"")
(help @askdisk-help)
(dest "DU_9")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 4/6")
(run "ram:unlha xf DU_9:sao4.lha")
(complete 53)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 8/12")
(run "ram:unlha xf DU_9:pics8.lha")
(complete 57)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 10\"")
(help @askdisk-help)
(dest "DU_10")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 5/6")
(run "ram:unlha xf DU_10:sao5.lha")
(complete 61)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 9/12")
(run "ram:unlha xf DU_10:pics9.lha")
(complete 65)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 11\"")
(help @askdisk-help)
(dest "DU_11")
)
(if software (
(set @execute-dir dudata)
(working "Extracting SAO stellar database part 6/6")
(run "ram:unlha xf DU_11:sao6.lha")
(complete 69)
))
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 10/12")
(run "ram:unlha xf DU_11:pics10.lha")
(complete 73)
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 12\"")
(help @askdisk-help)
(dest "DU_12")
)
(working "Extracting encyclopedia pictures part 11/12")
(run "ram:unlha xf DU_12:pics11.lha")
(complete 77)
))
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 13\"")
(help @askdisk-help)
(dest "DU_13")
)
(if pictures (
(set @execute-dir pics)
(working "Extracting encyclopedia pictures part 12/12")
(run "ram:unlha xf DU_13:pics12.lha")
(complete 81)
))
(if software (
(set @execute-dir dudata)
(working "Extracting Earth satellite orbit files")
(run "ram:unlha xf DU_13:satellites.lha")
(complete 85)
(set @execute-dir dudata)
(working "Extracting comet and asteroid orbit files 1/2")
(run "ram:unlha xf DU_13:orbits1.lha")
(complete 89)
(askdisk
(prompt "Please insert the disk labelled \"The Digital Universe Disk 14\"")
(help @askdisk-help)
(dest "DU_14")
)
(set @execute-dir dudata)
(working "Extracting comet and asteroid orbit files 2/2")
(run "ram:unlha xf DU_14:orbits2.lha")
(complete 93)
(set @execute-dir dudata)
(working "Extracting 1000+ database")
(run "ram:unlha xf DU_14:1000plus.lha")
(complete 97)
))
; Now, we're done
(delete "RAM:unlha")
(complete 100)
(exit "Installation successful")